home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / Greed2_0.lha / Greed / _Greed2.0 next >
Text File  |  1995-05-11  |  14KB  |  508 lines
  1. /* $VER: Greed 2.0.2 (5/2/95) by Spike Dethman
  2. */
  3. /**********************/
  4. /* Greed 2.0          */
  5. /* From The Codex BBS */
  6. /* Atlanta, GA        */
  7. /* (770) 473 - 6173   */
  8. /* Written by         */
  9. /* Fizban & Cregan    */
  10. /* 3/5/92 3:12am.     */
  11. /* Re-told from the   */
  12. /* original Latin by  */
  13. /*      Spike         */
  14. /*   for C-Net BBS    */
  15. /**********************/
  16. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  17.  
  18. bonustime=15 ; /*  <<< minutes awarded for making the Top 5 */
  19. call GetPaths
  20.  
  21. INIT:
  22. tr=transmit ; gc=getchar ; gu=getuser
  23. changewhere 'caBeing GREEDY!'
  24. gu 1 ; handle=result ; gu 40 ; acctnum=result
  25. gu 28 ; term=result
  26. spaces='                                        '
  27. seed=random(,,time(s))
  28. fn='GreedIntro' ; call FILEOUT
  29.  
  30. PLAY:
  31.  /* re-sense term in case ET'd during game! */
  32. gu 28 ; term=result
  33. gu 27 ; width=result
  34. sp2=0 ; sp='' ; if width>59 then do ; sp2=20 ; sp='                    ' ; end
  35. bufferflush ; c=0 ; b=0 ; gt=0 ; tr 'n1'
  36. tr sp'cc[I]nstructions' ; tr sp'[V]iew High Scores' ; tr sp'[S]ingle Hand 
  37. Game' ; tr sp'[F]ull Game to 5,000' ; tr sp'[C-Net command]' ; tr sp'[Q]uit'
  38. query 'n1ca'||sp||'    Your Choice?cf ' ; call GCCHECK
  39. ans=upper(ans)
  40.  
  41. if ans='I' then do
  42.      call INSTRUCT
  43.      signal PLAY
  44.      end
  45. if ans='V' then do
  46.      call SHOWHIGHS
  47.      call SHOWSHIGHS
  48.      call WAIT
  49.      signal PLAY
  50.      end
  51. if ans='S' then do
  52.      gs=1 ; gt=0
  53.      tr sp'OK, a Single Hand Game.n1'
  54.      signal MAIN
  55.      end
  56. if ans='F' then do
  57.      gs=0 ; gt=4999
  58.      tr sp'OK, a Game to 5,000.n1'
  59.      signal MAIN
  60.      end
  61.  
  62. if ans='Q' then signal QUIT
  63.  
  64. BBSCOMMAND ans ; signal PLAY ; /* try to execute C-Net command */
  65. MAIN:
  66. b=0 ; c=0 ; a=0 ; tr sp'ccLet Me Get The Dice, 'handle'!n1w2' ; hl=0
  67. L14:
  68. a=0 ; cs=0 ; sb=0 ; j1=0 ; i2=0 ; od=1 ; it=1 ; bs=1
  69.  
  70. L18:
  71. f=6 ; od=1 ; if hl>0 then tr 'n1cc'handle"'s Last Turn:w2" ; signal L22
  72. tr 'n1cc'handle"'s Turn:"
  73. L22:
  74. call ROLLDICE
  75. L24:
  76. call L94 ; if bs=2 then signal L36
  77. call L110 ; call L118 ; if it=2 then signal L24
  78. if f=0 then tr "can1You get to roll ALL 6 Again!!b1"
  79. bufferflush ; tr "n1caAre You still GREEDY?" ; gc ; call GCCHECK2 ; tr
  80. if ans~='Y' then signal L38
  81. if od=2 then signal L18
  82. signal L22
  83.  
  84. L36:
  85. tr sp"c9You Busted!  Ha Ha! A bit too GREEDY!b2w2"
  86. L38:
  87. tr "n1"sp"cbTotal for the Hand "a" Points" ; c=c+a
  88. if gs~=1 then tr 'n1cbThe Score is: You '||c||' to Me '||b
  89. if gs=1 then do ;
  90.      tr sp"Single Hand Total= "c ; call CHECKHI ; signal PLAY
  91.      end
  92. if hl=1 then signal L86
  93.  
  94. if c>gt then do ; tr "n1ccComputer's Last Turn:w2" ; signal L46 ; end
  95. tr "n1ccComputer's Turn:"
  96. L46:
  97. bs=1 ; d=a ; a=0
  98. L48:
  99. f=6
  100. L50:
  101. od=1 ; call ROLLDICE ; call L94
  102. if bs=2 then do
  103. tr sp"c9Computer was too GREEDY!b2w2" ; signal L68 ; end
  104. call L142 ; call L118
  105. if (c>gt) & (c>b+a) then signal L60
  106. if (c>gt) & (c<b+a) then signal L74
  107. if (f~=0)&(a~<1000) then signal L74
  108. if (f~=0)&(a~<400)&(f<3) then signal L74
  109. if (f~=0)&(a<400)&(f<3) then signal L74
  110. /* if (f~=0)&((a>=1000)|((a>=400)&(f<3))|((a<400)&(f<3))) then signal L74 */
  111. L60:
  112. tr "n1caComputer is still GREEDY!n1w2"
  113. if od=2 then signal L48
  114. else signal L50
  115.  
  116. L74:
  117. tr 'n1'sp'ccComputer keeps this hand 'a ; b=b+a ; signal L68
  118. L68:
  119. if a<d then tr sp"caYou won this hand "d" to "a
  120. if a=d then tr sp"ccHand is a TIE "a" TO "d
  121. if a>d then tr sp"caComputer won this hand "a" TO "d
  122. L80:
  123. tr 'n1ccTotal scores:' ; tr handle' Has 'c',  Computer Has' b
  124. if hl>0 then signal L86
  125. if c>gt then signal L86
  126. if b>gt then do ; hl=1 ;  signal L14 ; end
  127.  
  128. LOOP:
  129. bufferflush ; tr "ccReady for the Next Hand?" ; gc ; call GCCHECK2 ; tr
  130. if ans='Y' then signal L14
  131. bufferflush ; tr 'Do you really want to quit?' ; gc ; call GCCHECK2
  132. if ans~='N' then signal PLAY
  133. signal L14
  134.  
  135. L86:
  136. if c>b then do
  137.      tr sp'c9You WON!' c 'To' b
  138.      call CHECKHI
  139.      signal PLAY
  140.      end
  141. if c<b then do
  142.      tr sp'cbComputer WON!' b 'To' c
  143.      signal PLAY
  144.      end
  145. signal LOOP
  146.  
  147. L94:
  148. do i=1 to 6 ; a2.i=0 ; end i
  149. call SHOWDICE
  150. do k = 1 to f
  151.    i9=di.k ; a2.i9 = a2.i9 + 1 ; end k
  152. if (a2.1~=0)|(a2.5~=0) then signal L108
  153. if (a2.2>2)|(a2.3>2) then signal L108
  154. if (a2.4>2)|(a2.6>2) then signal L108
  155. a=0 ; bs=2
  156. L108:
  157. return
  158.  
  159. L110:
  160. do i=1 to 6 ; a.i=0 ; end i ; j1=0
  161. do k=1 to f
  162.  
  163.    bufferflush
  164.    if term=2 then tr ''||k*11-1+((6-f)*5)||'HccRemove?cbg1'
  165.    else tr sp"ccRemove die "k"? cbg1"
  166.    gu 71 ; call GCCHECK
  167.    if ans='Y' then do ; j1=j1+1 ; a.j1=di.k ; end
  168. end k ; return
  169.  
  170. L118:
  171. tr
  172. if j1=0 then signal ILLEGAL
  173. if j1=1 then tr sp"cbRemoved "a.1
  174. if j1=2 then tr sp"cbRemoved "a.1"  "a.2
  175. if j1=3 then tr sp"cbRemoved "a.1"  "a.2"  "a.3
  176. if j1=4 then tr sp"cbRemoved "a.1"  "a.2"  "a.3"  "a.4
  177. if j1=5 then tr sp"cbRemoved "a.1"  "a.2"  "a.3"  "a.4"  "a.5
  178. if j1=6 then tr sp"cbRemoved "a.1"  "a.2"  "a.3"  "a.4"  "a.5"  "a.6
  179. do i=1 to j1 ; i9=a.i ; ao.i9=ao.i9 + 1 ; end i 
  180. STR6:
  181. if j1~=6 then signal STR5
  182. if (ao.1~=1)|(ao.2~=1)|(ao.3~=1)|(ao.4~=1)|(ao.5~=1)|(ao.6~=1)then signal ONES
  183. tr sp"c9A 6 Die Straight! :2000 pts" ; sb=sb+2000 ; signal TOTAL
  184.  
  185. STR5:
  186. if (j1~=5)|(f~=5) then signal ONES
  187. if (ao.2~=1)|(ao.3~=1)|(ao.4~=1)|(ao.5~=1) then signal ONES
  188. if (ao.1=1)|(ao.6=1) then do ; tr sp" c9A 5 Die Straight! :1500 pts"
  189.      sb=sb+1500 ; signal TOTAL ; end
  190.  
  191. ONES:
  192. tr 'cc'
  193. if ao.1=1 then do ; tr sp"One 1     : 100 pts" ; sb=sb+100 ; signal TWOS ; end
  194. if ao.1=2 then do ; tr sp"Two 1's   : 200 pts" ; sb=sb+200 ; signal TWOS ; end
  195. if ao.1=3 then do ; tr sp"Three 1's :1000 pts"
  196.      sb=sb+1000 ; signal TWOS ; end
  197. if ao.1=4 then do ; tr sp"Four 1's  :1100 pts"
  198.      sb=sb+1100 ; signal TWOS ; end
  199. if ao.1=5 then do ; tr sp"Five 1's  :1200 pts"
  200.      sb=sb+1200 ; signal TWOS ; end
  201. if ao.1=6 then do ; tr sp"Six 1's   :2000 pts"
  202.      sb=sb+2000 ; signal TOTAL ; end
  203.  
  204. TWOS:
  205. if ao.2=1 then do ; tr sp"One 2     : illegal" ; signal ILLEGAL ; end
  206. if ao.2=2 then do ; tr sp"Two 2's   : illegal" ; signal ILLEGAL ; end
  207. if ao.2=3 then do ; tr sp"Three 2's : 200 pts"
  208.      sb=sb+200 ; signal THREES ; end
  209. if ao.2=4 then do ; tr sp"Four 2's  : illegal" ; signal ILLEGAL ; end
  210. if ao.2=5 then do ; tr sp"Five 2's  : illegal" ; signal ILLEGAL ; end
  211. if ao.2=6 then do ; tr sp"Six 2's   : 400 pts"
  212.      sb=sb+400 ; signal TOTAL ; end
  213.  
  214. THREES:
  215. if ao.3=1 then do ; tr sp"One 3     : illegal" ; signal ILLEGAL ; end
  216. if ao.3=2 then do ; tr sp"Two 3's   : illegal" ; signal ILLEGAL ; end
  217. if ao.3=3 then do ; tr sp"Three 3's : 300 pts"
  218.      sb=sb+300 ; signal FOURS ; end
  219. if ao.3=4 then do ; tr sp"Four 3's  : illegal" ; signal ILLEGAL ; end
  220. if ao.3=5 then do ; tr sp"Five 3's  : illegal" ; signal ILLEGAL ; end
  221. if ao.3=6 then do ; tr sp"Six 3's   : 600 pts"
  222.      sb=sb+600 ; signal TOTAL ; end
  223.  
  224. FOURS:
  225. if ao.4=1 then do ; tr sp"One 4     : illegal" ; signal ILLEGAL ; end
  226. if ao.4=2 then do ; tr sp"Two 4's   : illegal" ; signal ILLEGAL ; end
  227. if ao.4=3 then do ; tr sp"Three 4's : 400 pts"
  228.      sb=sb+400 ; signal FIVES ; end
  229. if ao.4=4 then do ; tr sp"Four 4's  : illegal" ; signal ILLEGAL ; end
  230. if ao.4=5 then do ; tr sp"Five 4's  : illegal" ; signal ILLEGAL ; end
  231. if ao.4=6 then do ; tr sp"Six 4's   : 800 pts"
  232.      sb=sb+800 ; signal TOTAL ; end
  233.  
  234. FIVES:
  235. if ao.5=1 then do ; tr sp"One 5     :  50 pts" ; sb=sb+50 ; signal SIXES ; end
  236. if ao.5=2 then do ; tr sp"Two 5's   : 100 pts"
  237.      sb=sb+100 ; signal SIXES ; end
  238. if ao.5=3 then do ; tr sp"Three 5's : 500 pts"
  239.      sb=sb+500 ; signal SIXES ; end
  240. if ao.5=4 then do ; tr sp"Four 5's  : 550 pts"
  241.      sb=sb+550 ; signal SIXES ; end
  242. if ao.5=5 then do ; tr sp"Five 5's  : 600 pts"
  243.      sb=sb+600 ; signal SIXES ; end
  244. if ao.5=6 then do ; tr sp"Six 5's   :1000 pts"
  245.      sb=sb+1000 ; signal TOTAL ; end
  246.  
  247. SIXES:
  248. if ao.6=1 then do ; tr sp"One 6     : illegal" ; signal ILLEGAL ; end
  249. if ao.6=2 then do ; tr sp"Two 6's   : illegal" ; signal ILLEGAL ; end
  250. if ao.6=3 then do ; tr sp"Three 6's : 600 pts"
  251.      sb=sb+600 ; signal TOTAL ; end
  252. if ao.6=4 then do ; tr sp"Four 6's  : illegal" ; signal ILLEGAL ; end
  253. if ao.6=5 then do ; tr sp"Five 6's  : illegal" ; signal ILLEGAL ; end
  254. if ao.6=6 then do ; tr sp"Six 6's   :1200 pts"
  255.      sb=sb+1200 ; signal TOTAL ; end
  256.  
  257. TOTAL:
  258. a=sb+a
  259. tr sp"cbScore = "a ; sb=0
  260. do i=1 to 6 ; ao.i=0 ; end i ; f=f-j1
  261. if f=0 then od=2
  262. it=1 ; j1=0 ; return
  263.  
  264. L142:
  265. do i=1 to 6 ; a4.i=0 ; end i
  266. do k=1 to f ; i9=di.k ; a4.i9=a4.i9 + 1 ; end k
  267. do i=1 to 6 ; a.i=0 ; a3.i=0 ; end i ; j1=0
  268. do k=1 to f
  269.    dk=di.k ; ans="Y"
  270.    if (dk~=1)&(dk~=5)&(a4.dk<3) then ans='N'
  271.    if (dk~=1)&(dk~=5)&(a4.dk<6)&(a3.dk>2) then ans='N'
  272.      if f=6 & a4.1=1 & a4.2=1 & a4.3=1 & a4.4=1 & a4.5=1 then ans='Y'
  273.      if f=5 & a4.2=1 & a4.3=1 & a4.4=1 & a4.5=1 then ans='Y'
  274.    if ans='Y' then do ; a3.dk=a3.dk +1 ; j1=j1 +1 ; a.j1=di.k ; end
  275. end k ; return
  276.  
  277. ILLEGAL:
  278. sb=0 ; tr "c9You are not allowed to select that combination of dice."
  279. bufferflush ; tr "cbDo you need to see the rules?" ; gc ; call GCCHECK2
  280. if ans~='Y' then signal L240
  281. INSTRUCT:
  282. fn='GreedRules' ; call FILEOUT
  283. L240:
  284. it=2 ; do i=1 to 6 ; ao.i=0 ; end i ; j1=0 ; return
  285.  
  286. SHOWDICE:
  287. if term=1 then signal CGTERM
  288. if term=2 then signal ANSITERM
  289. signal NOTERM
  290. CGTERM:
  291.       /* C=C/G term */
  292.      tr 'f1}'
  293.    do f2=1 to f ; f1=f-f2+1 ; call DOCGDIE ; end f2
  294.    transmit
  295.    return
  296. DOCGDIE:
  297. col = f1*6-5+((6-f)*3)+sp2 ; lab='CGDIE'||di.f1 ; signal (lab)
  298. CGDIE1:
  299. tr 'f0}cf'||left(spaces,col)||'r1   r0'
  300. tr left(spaces,col)||'r1 o r0'
  301. tr left(spaces,col)||'r1   r0'
  302. tr 'n1'||left(spaces,col)||'cc-'||f1||'-'
  303. return
  304. CGDIE2:
  305. tr 'f0}cf'||left(spaces,col)||'r1o  r0'
  306. tr left(spaces,col)||'r1   r0'
  307. tr left(spaces,col)||'r1  or0'
  308. tr 'n1'||left(spaces,col)||'cc-'||f1||'-'
  309. return
  310. CGDIE3:
  311. tr 'f0}cf'||left(spaces,col)||'r1  or0'
  312. tr left(spaces,col)||'r1 o r0'
  313. tr left(spaces,col)||'r1o  r0'
  314. tr 'n1'||left(spaces,col)||'cc-'||f1||'-'
  315. return
  316. CGDIE4:
  317. tr 'f0}cf'||left(spaces,col)||'r1o or0'
  318. tr left(spaces,col)||'r1   r0'
  319. tr left(spaces,col)||'r1o or0'
  320. tr 'n1'||left(spaces,col)||'cc-'||f1||'-'
  321. return
  322. CGDIE5:
  323. tr 'f0}cf'||left(spaces,col)||'r1o or0'
  324. tr left(spaces,col)||'r1 o r0'
  325. tr left(spaces,col)||'r1o or0'
  326. tr 'n1'||left(spaces,col)||'cc-'||f1||'-'
  327. return
  328. CGDIE6:
  329. tr 'f0}cf'||left(spaces,col)||'r1o or0'
  330. tr left(spaces,col)||'r1o or0'
  331. tr left(spaces,col)||'r1o or0'
  332. tr 'n1'||left(spaces,col)||'cc-'||f1||'-'
  333. return
  334.  
  335. ANSITERM:
  336.      tr 'f1}'
  337.    do f1=1 to f ; call DOANSIDIE
  338.    end f1 ; return
  339. DOANSIDIE:
  340.       col=f1 * 11 - 1 + ((6 - f) * 5)
  341.       lab='ANSIDIE'||di.f1
  342.       signal (lab)
  343. ANSIDIE1:
  344. tr ''||col||'HcfÛÛÛÛÛÛÛ'
  345. tr ''||col||'HÛÛÛßÛÛÛ'
  346. tr ''||col||'HÛÛÛÛÛÛÛ'
  347. tr ''||col||'Hßßßßßßß'
  348. return
  349.  
  350. ANSIDIE2:
  351. tr ''||col||'HcfÛßÛÛÛÛÛ'
  352. tr ''||col||'HÛÛÛÛÛÛÛ'
  353. tr ''||col||'HÛÛÛÛÛßÛ'
  354. tr ''||col||'Hßßßßßßß'
  355. return
  356.  
  357. ANSIDIE3:
  358. tr ''||col||'HcfÛÛÛÛÛßÛ'
  359. tr ''||col||'HÛÛÛßÛÛÛ'
  360. tr ''||col||'HÛßÛÛÛÛÛ'
  361. tr ''||col||'Hßßßßßßß'
  362. return
  363.  
  364. ANSIDIE4:
  365. tr ''||col||'HcfÛßÛÛÛßÛ'
  366. tr ''||col||'HÛÛÛÛÛÛÛ'
  367. tr ''||col||'HÛßÛÛÛßÛ'
  368. tr ''||col||'Hßßßßßßß'
  369. return
  370.  
  371. ANSIDIE5:
  372. tr ''||col||'HcfÛßÛÛÛßÛ'
  373. tr ''||col||'HÛÛÛßÛÛÛ'
  374. tr ''||col||'HÛßÛÛÛßÛ'
  375. tr ''||col||'Hßßßßßßß'
  376. return
  377.  
  378. ANSIDIE6:
  379. tr ''||col||'HcfÛßÛÛÛßÛ'
  380. tr ''||col||'HÛßÛÛÛßÛ'
  381. tr ''||col||'HÛßÛÛÛßÛ'
  382. tr ''||col||'Hßßßßßßß'
  383. return
  384.  
  385. NOTERM:
  386.  /* ASCII term: */
  387. tr "n1"sp"ccDie    #1 #2 #3 #4 #5 #6cf"
  388. if f=1 then tr sp"        "di.1
  389. if f=2 then tr sp"        "di.1"  "di.2
  390. if f=3 then tr sp"        "di.1"  "di.2"  "di.3
  391. if f=4 then tr sp"        "di.1"  "di.2"  "di.3"  "di.4
  392. if f=5 then tr sp"        "di.1"  "di.2"  "di.3"  "di.4"  "di.5
  393. if f=6 then tr sp"        "di.1"  "di.2"  "di.3"  "di.4"  "di.5"  "di.6
  394. tr sp"       k1-----------------k0"
  395. return
  396.  
  397. ROLLDICE:
  398. if f=1 then tr sp"cc    Rolling a Single Die...w2"
  399. else tr sp"cc    Rolling "f" Dice...w2"
  400. do i=1 to 6 ; di.i=random(1,6) ; ao.i=0 ; end i ; return
  401. SHOWSHIGHS:
  402. tr 'n1'sp'ca    Single Hand Game'
  403. fn="GreedFive-sh" ; call READHIGH ; call SHOWFIVE
  404. return
  405.  
  406. SHOWHIGHS:
  407. fn="GreedFive"
  408. tr 'n1'sp'ca    Full Game of 5,000'
  409. call READHIGH ; call SHOWFIVE ; return
  410.  
  411. READHIGH:
  412. if ~exists(GreedPath||fn) then do
  413.    call open(f1,GreedPath||fn,'w')
  414.    do x=1 to 5
  415.       call writeln(f1,"Nobody Yet!") ; call writeln(f1,"0") ; call writeln(f1,"0")
  416.    end x ; call close(f1)
  417. end
  418.  
  419. call open(f1,GreedPath||fn,'r')
  420. do x=1 to 5
  421.    do y=1 to 3
  422.       zp.x.y=readln(f1)
  423.    end y
  424. end x ; call close(f1)
  425. return
  426.  
  427. SHOWFIVE:
  428. tr sp"cbCurrent Top Five Greed Champions:"
  429. tr sp"    NAME             TOTAL SCORE!"
  430. do x=1 to 5
  431.    tr sp'<'||x||'> '||left(zp.x.1'                    ',20)zp.x.2
  432. end x
  433. return
  434.  
  435. WAIT:
  436. bufferflush ; tr "n1ccPress Return: g1n1" ; return
  437.  
  438. CHECKHI:
  439. fn="GreedFive" ; if gs=1 then fn="GreedFive-sh"
  440. call READHIGH
  441. x=0 ; gp=c ; if gp<=0 then signal L288
  442. L276:
  443. x=x+1 ; if x>5 then signal L288
  444. z=5 ; if zp.x.2=0 then signal L283
  445. if gp<zp.x.2 then signal L276
  446.  
  447. L283:
  448. z1=z-1
  449. do y=1 to 3
  450.    zp.z.y=zp.z1.y
  451. end y
  452. z=z-1 ; if z~<x then signal L283
  453.  
  454. zp.x.1=handle ; zp.x.2=gp ; zp.x.3=acctnum
  455. tr "n1c9Congratulations! You Are One Of The Top 5 Players!b3w2"
  456. if bonustime>0 then do
  457.      tr 'And you get' bonustime 'EXTRA MINUTES THIS CALL!'
  458.      addtime bonustime
  459.      end
  460. call open(f1,GreedPath||fn,'w')
  461. do x=1 to 5
  462.    do y=1 to 3
  463.       call writeln(f1,zp.x.y)
  464.    end y
  465. end x ; call close(f1)
  466. if gs=1 then call SHOWSHIGHS
  467. if gs=0 then call SHOWHIGHS
  468. call WAIT
  469. return
  470.  
  471. L288:
  472. tr "n1ccSorry, You Did Not Make It In The Top Five. Try Again Next Time."
  473. return
  474.  
  475. FILEOUT:
  476. if exists(GreedPath'tt'term'.'fn) then do ; sendfile GreedPath'tt'term'.'fn ; return ;
  477. end
  478. if exists(GreedPath'sys.'fn) then sendfile GreedPath'sys.'fn
  479. return
  480.  
  481. GCCHECK:
  482. ans=result
  483. if ans ='###PANIC' then do ; bufferflush ; exit ; end
  484. return
  485.  
  486. GCCHECK2:
  487. ans=result
  488. if ans ='###PANIC' then do ; bufferflush ; exit ; end
  489. if ans ='Y' then tr 'cfYes!'
  490. else tr 'c9Not Me!'
  491. return
  492.  
  493. SYNTAX:
  494. ERROR:
  495. IOERR:
  496. tr sp'Error detected:' ; tr sp'ER: 'rc'  ('errortext(rc)') @ 'sigl
  497. bufferflush ; exit
  498.  
  499. QUIT:
  500. tr 'n1'||sp'caGREED 2.0 brought to you by'
  501. tr sp'The Codex BBS, Atlanta, GA'
  502. tr sp '   (770) 473 - 6173'
  503. tr sp'      Sysop: Cregan.'
  504. tr 'n1'sp'cfThanks for playing!'
  505. bufferflush ; exit
  506.  
  507. GetPaths:
  508.